home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / ratbas.arc / TEST.RAT < prev   
Text File  |  1982-11-01  |  2KB  |  115 lines
  1. ' TEST  Program to test RT Translator
  2.  
  3. DIM Names$(200)
  4.  
  5. Maxnames=200
  6. INCLUDE SORT]
  7.  
  8. Procedure Getkey]
  9.    for i.getkey=1 to 10: fromuser$=inkey$: next
  10.    while fromuser$="": fromuser$=inkey$: wend
  11. pend]
  12.  
  13. Procedure GetSelection(v:ifunc.get)]
  14. cls
  15. print "Menu For Sort Program
  16. print 
  17. print "1   Enter a List of Names from Keyboard"
  18. print "2   Display the Names"
  19. print "3   Read a list of Names from a disk file"
  20. print "4   Write the list of Names to a disk file"
  21. print "5   Sort the Names alphabetically"
  22. print "10  End the Program
  23. print
  24. print "Strike Function Key for your choice"
  25. choicemade%=false
  26. while not choicemade%
  27.   getkey]
  28.   if len(fromuser$)=2 then]
  29.      ifunc.get=asc(mid$(fromuser$,2,1))-58
  30.   else]
  31.      ifunc.get=0
  32.   ifend]
  33.   choicemade%=ifunc.get=10 or (ifunc.get>=1 and ifunc.get<=5)
  34. wend
  35. pend]
  36.  
  37. Procedure Enternames]
  38. cls
  39. locate 25,1
  40. Print "Enter Names.  Use a Null Line to quit";
  41. locate 1,1,1
  42. numnames=0
  43. line input namein$
  44. while namein$<>"" and numnames<maxnames
  45.    numnames=numnames+1
  46.    names$(numnames)=namein$
  47.    line input namein$
  48. wend
  49. pend]
  50.  
  51. Procedure Displaynames]
  52. for j=1 to numnames step 20
  53.    klast=j+19: if klast>numnames then klast=numnames
  54.    cls
  55.    for k=j to klast
  56.       Print names$(k)
  57.    next k
  58.    print
  59.    print "Press Space Bar to Continue;
  60.    Getkey]
  61. next j
  62. pend]
  63.  
  64. Procedure Readnames]
  65. cls
  66. numnames=0
  67. print
  68. Input "Enter Name of File with input ";file$
  69. Open file$ for input as #1
  70. while not eof(1) and numnames<maxnames
  71.    line input #1, namein$
  72.    numnames=numnames+1
  73.    names$(numnames)=namein$
  74.    print ".";
  75. wend
  76. close #1
  77. pend]
  78.  
  79. Procedure Writenames]
  80. cls
  81. print
  82. Input "Enter Name of File to write names";file$
  83. Open file$ for output as #1
  84. for j=1 to numnames
  85.    Print #1, names$(j)
  86.    print ".";
  87. next j
  88. close #1
  89. pend]
  90.  
  91. PROGRAM]
  92. key off
  93. for k=1 to 10
  94.    key k,""
  95. next k
  96. cls
  97. Print "Program to Sort a List of Names"
  98. GetSelection(choice)]
  99. while choice<10
  100.    CASE Choice OF]
  101.    1 :]
  102.       Enternames]
  103.    2 :]
  104.       Displaynames]
  105.    3 :]
  106.       Readnames]
  107.    4 :]
  108.       Writenames]
  109.    5 :]
  110.       Sort]
  111.    CEND]
  112.    Getselection(choice)]
  113. wend
  114. END
  115.